﻿Public Class Inf_mortalidad_infantil
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()
        End If
    End Sub

    Private Sub MuestraMortalidadINfantil()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_indiceMortalidad.Visible = False


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_Mortalidad_infantil", param, "Muestra_ProvinciasCnPorcentajeDeBajoPeso-inf_bajo peso")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        'muestro el panel 
        P_indiceMortalidad.Visible = True

        Img_mortalidad.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 490, 160, "Indice Mortalidad Infantil-Nivel Pais", Drawing.Color.Blue)



    End Sub

    Private Sub MuestraMortalidadPostYneoNatal()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

     


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_Mortalidad_infantil_NeoYpostNatal", param, "Muestra_ProvinciasCnPorcentajeDeBajoPeso-inf_bajo peso")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If


        Img_NeoNatal_o_PostNatal.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 460, 190, "Detalle de mortalidad en (postnatal y NeoNatal)", Drawing.Color.Blue)


    End Sub


    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click
        'seteo el catel 
        FG.SacaCartelDeAViso(lblMsje)
        '----------------


        MuestraMortalidadINfantil()

        'descrimino si la mortalidad es neo o post 
        MuestraMortalidadPostYneoNatal()

        ' si no hay datos aviso
        If P_indiceMortalidad.Visible = False Then
            FG.MuestraCartel("No hay datos para mostrar", lblMsje)
        End If

    End Sub
End Class